Chip: Hang es video/CHIP_ZENESZERKESZTO_2005.ISO/audio_3/visual/robotfunk/setup.exe/{app}/main.dxr/ui_161.ls

Text File | 2003-11-19 | 930 b | 40 lines

property md
global preloadlist, select, fpslist, curscript

on mouseDown me
  md = 1
end

on mouseLeave me
  md = 0
end

on mouseUp me
  if md then
    curscript = "loadbank"
    fileName = baGetFilename("load", "c:", EMPTY, "Flowmotion Banks|*.bnk", 0, "Open Bank", 0, 400, 300)
    if fileName <> EMPTY then
      fileLink = new(xtra("vList"), fileName)
      pre = read(fileLink)
      pl = []
      repeat with i = 1 to pre.count
        pl[i] = []
        repeat with j = 1 to pre[i].count - 2
          if pre[i].count >= j then
            if pre[i][j].ilk = #image then
              pl[i][j] = pre[i][j]
            end if
          end if
        end repeat
        if pre[i].count >= j then
          if pre[i][j].ilk = #image then
            member(i, "thumbnails").image = pre[i][j]
          end if
          fpslist[i] = pre[i][j + 1]
        end if
      end repeat
      preloadlist = pl
    end if
  end if
end